home *** CD-ROM | disk | FTP | other *** search
/ Chip 1996 December / CHIP Aralık 1996.iso / prog / backpack / demodata / dep_dir / shared.dxr / 00911_PutDate.ls < prev    next >
Encoding:
Text File  |  1995-08-30  |  82 b   |  6 lines
  1. on PutDate Y, m, D
  2.   set Y to Y * 10000
  3.   set m to m * 100
  4.   return Y + m + D
  5. end
  6.